home *** CD-ROM | disk | FTP | other *** search
Text File | 1988-05-01 | 10.0 KB | 655 lines | [04] ASCII Text (0x0001) |
-
- %if¶backÏinkÌenu
- %code∞≥
- %bcolor∞Êcolor≥Âscreenalette≥20∞±5±5±5‚order≥
- %window∞∑0∂40≤00
- œneÌoment,lease.†Your¡pple¶NÈsreparingÙheÛection„alled
- ¢Spreadsheet."†®Don'tÊorget--whenever˘ou˜antÙoÁo‚ackÙoÙhe
- ÌainÌenu,ÍustressÙhe≈scÎey.)
- %s∂¢%box≤54∂0µ66±58"
- %s∑¢%moveto¥0≤5"
- %s∏¢%moveto±40≤5"
- %s≈¢%bcolor±Âraserect≤4±8±10≤7‚color≥"
- %sΔ¢%bcolor±Âraserect±30±8µ00≤7‚color≥"
- %s·rea±±42†75≤36†87
- %s·rea≤±42†87≤36†98
- %s·rea≥±42†98≤36±09
- %s·rea¥±42±09≤36±20
- %s·reaµ±42±20≤36±31
- %s·rea∂†50†75±43†87
- %s·rea∑†50†86±43π8
- %s·reaπ±42±42≤36±53˜ait±
- %code≤∞˜ait∞
- %preload‰ata/monaco.9˜ait∞
- %preloadÁfx/m2.42††˜ait∞
- %preload‰ata/ss.menu†wait∞
- %preloadÁfx/m1.06††˜ait∞
- %preloadÁfx/m1.06a††wait∞
- %loadinst¥Ûtring‚ass.l¢"˜ait∞
- %loadinst≤‰rumËidrum.w¢"˜ait∞
- %loadinst≥‰rumÏodrum.w¢"˜ait∞
- %loadinst±ÁuitarÁuitar.l¢"˜ait∞
- %preloadÁfx/cues˜ait∞
- %preloadÁfx/altcues˜ait∞
- %preloadÛfx/menu2exit.song
- %preloadÛfx/menu2open.song˜ait∞
- %code∞≤
- %sfxÌenu2open
-
- %m 1
- %if¶back„uesÔff
- %bcolor∞Êcolor≥Âscreenalette≥20∞±5±5±5
- %window∞∞∂40≤00
- %cues¥54±82
- %gfx∞Ì1.06π4±9
- %gfxpart±Áfx/m1.06a≤84≥6∞∞≤40∑7
- %windowµ6±35≥74≤00‚oldÔn
- SPREADSHEET
-
- %boldÔff˜rapÔn
- AÛpreadsheetrogramÈsÊor„alculation--
- allÎindsÔf„alculations,ÊromÈnvestment
- trackingÙoÁradeoint·verages.
- %windowµ6±53≥74≤00
- %get act
-
- %m 2
- %unbox„uesÔff‚color±alette≥20µ±5±2±5
- %palette∂40±±5±2±5
- %escreen˜indow∞∞∂40≤00
- %palette∂40∞†0†0†0alette∂40≥±5±5±5alette∂40≤†5†0†6
- %escreen˜indow∞∞∂40≤00
- %newmenu‰ata/ss.menu„ues¥54±82
- %gfx∞Ì2.42≤0±6
- %moveto≥4∂2ÊontÌonaco.9‚color≥Êcolor∞
- 1
- %moveto≥4∑3
- 2
- %moveto≥4∏4
- 3
- %moveto≥4π5
- 4
- %moveto≥4±06
- 5
- %moveto≥4±17
- 6
- %moveto≥4±28
- 7
- %moveto≥4±39
- 8
- %moveto≥4±50
- 9
- %moveto≤8±61
- 10
- %moveto†86µ1
- A
- %moveto±81µ1
- B
- %moveto≤76µ1
- C
- %moveto≥71µ1
- D
- %moveto¥66µ1
- E
- %movetoµ61µ1
- F
-
-
- %fontÛys‚ox±2±52≥52±96
- AnÂlectronicÛpreadsheetÈsÏike·ageÔf
- ledgeraper.…t'sÏaidÔutÙheÛame˜ay--inÚows·nd„olumns.
- %get act
-
- %m 3
- %s·rea±0≤0µ2µ0±64
- %unbox
- %box±00∑0¥22±14
- TheÚows·reÏabeled˜ithÓumbers.
- %hilite·rea±0¥
- %get act
-
- %m 4
- %if¶backËilite·rea∂∞‚ox±00∑0¥22±14
- %s·rea±0µ0¥2µ85µ4Â
- TheÚows·reÏabeled˜ithÓumbers.
- The„olumns·reÏabeled˜ithÏetters.
- %hilite·rea±0¥
- %get act
-
- %m 5
- %box±84∑0µ26±20
- %if¶back¯¶EËilite·rea∂∞
- Thelace˜here·Úow·nd·„olumnÈnter-
- sectÈs
- called·„ell.†It'sÏabeled˜ithÙheÓumber·nd
- letterÔfÙheÈntersectingÚow·nd„olumn.†ThisÈs
- cell¡3.
- %x¶E
- %x¶7
- %fontÌonaco.9
- A3
- %fontÛys
- %hilite·rea∂¥Ëilite·rea∂∞
- %get act
-
- %m 6
- %box±84∑0µ36±42
- You„anıse·ÛpreadsheetÊor·nyÍobÙhat
- requires„alculation.†YouÌight˜antÙoÛetıp·
- budget,ÊigureÔutÙheÌortgageaymentsÔn·
- house,Ôr‰o·ÒuarterlyÈncomeÛtatementÊor
- your‚usiness.†ButÏet'sÛtart˜ithÛomething
- simple.
- %get act
-
- %m 7
- %box±84∑0µ21±28
- Suppose˘ou‚ought·n·ncient˜aterÍugÊor
- $138Ôn·nÂxpeditionÙo¬orneo.
- You˜antÙoÚecordÙhisurchaseÔn˘our
- spreadsheet.
- %get act
-
- %m 8
- %if¶back¯¶F
- %e
- NoticeÙhat„ell¡3ÈsËighlighted.†You'll·lsoÛee
- "A3"Èn·‚oxÈnÙheÙopÏeft-hand„orner.†This‚oxÈs
- the„ellÈndicator.†ItÙells˘ou˜here˘ou·reÔnÙhe
- spreadsheet.
- %wait≥0Û·rea±0≤0±6±17≤8Ëilite·rea±0¥
- %get act
-
- %m 9
- %if¶backΩ∞Ûkip±
- %unbox
- %hilite·rea∂∞‚color±
- %eraserectµ4∑6±39∏6
- %hilite·rea∂∞‚color≥
- %box±84∑0µ22±31
- %w
- %fontÛys
- %e
- Let'sut·ÏabelÈn„ell¡3.
-
- &P‘ype
- %boldÔn
- Jug.
- %boldÔff
- %autoexitÔnÛ¥¢Jug"Û≤¢jug"‚color±
- %x &8 get "" 3 bcolor 3 autoexit off
- %if®&actΩ≥)·nd®&ansÛ=ß')¯¶8¯¶4Í´±
- %if &ans s<> &2 rem inp x &8 bcolor 1 autoexit on j get
-
- %m 10
- %if¶ansÛ<>¶2Ûkip±
- %sfx≤
- 3±2µ3∞±27
- 3±2∂0∞±27
- %w
- %unbox
- %if˛&backÛkip±
- %hilite·rea∂∞‚color±Âraserectµ2∑6±41∏6Ëilite·rea∂∞‚color≥
- %x¶8
- Jug
- %w
- %box±84∑0µ32±50
- The˜ord‰oesn't·ppearÈnÙhe„ellÚight·way.†Instead
- itÛhowsıpÈn·‚ox·tÙheÙopÔfÙheÛcreen.†This‚ox
- shows˘ouÙhe„ontentsÔf˜hatever„ellÈsËighlighted.
-
- %centerÔff˜rapÔff
- &P‘oÂnter¢Jug"ÈnÙhe„ell,ressÂither
- ††the“eturnÎeyÔrÙhe≈nterÎey.
- %s¥“eturn‚color±„enterÔn˜rapÔn
- %moveto 164 25 get ' ' 0 bcolor 3
- %if (&key <> 13) and (&act <> 3) rem key bcolor 1 j get
- %if®&keyº>±3)Ûkip±
- %sfx≤
- 3±2∂0∞±27
- 3±2µ3∞±27
- %w
- %unbox
- %fontÌonaco.9Ìoveto∂5∏4
- %hilite·rea∂∞‚color±
- %eraserectµ4∑6±39∏6
- Jug
- %hilite·rea∂∞‚color≥
- %autoexitÔffÊontÛys
-
- %m 11
- %unbox
- %if¶backËilite·rea±∞Ëilite·rea∂∞‚color≥
- %box≤54∑0µ64±11˜rapÔff„enterÔff
- &PŒowÌoveÙheointerÙo„ell¬3·nd
- †clickÙheÌouse‚utton.
- %s¥¢cell¬3"˜rapÔn„enterÔn
- %get any
- %if®&actΩ≥)Ûkip±
- %if &act <> -1 e rem click j get
- %sfx≥
- 3†9µ3∞±27
- 3†9µ3∞±27
- 3±8∂0∞±27
- %w
- %fontÌonaco.9ınbox
- %hilite·rea±∞
- %hilite·rea∂∞
- %x¶E
- %x¶F
- %x¶7
- B3
- %fontÛys
-
- %m 12
- %unbox
- %if¶backΩ∞Ûkip±
- %x¶F
- %hilite·rea¶1∞‚color±
- %eraserect±44∑6≤33∏6
- %hilite·rea±∞†bcolor≥
- %fontÛys
- %w
- %box≤54∂0µ54±58
- ToÙypeÓumbers,˘ou„anıseÂitherÙheÓumber
- keys·crossÙheÙopÔfÙheÎeyboardÔrÙhe
- numericÎeypadÔnÙheÚight.†They˜orkÂxactly
- theÛame˜ay,‚utÙheÓumericÎeypadÈsÌore
- convenientÈf˘ou'reÙypingÔnlyÓumbers.
-
- &P‘ype
- %boldÔn
- 138
- %boldÔff
- andress“eturn.
- %s¥¢138"
- %x¶8‚color±
- %get '' 28 bcolor 3
- %if®&actΩ≥)·nd®&ansÛ=ß')¯¶8¯¶4Ûkip±
- %if &ans s<> &4 rem inp x &8 bcolor 1 j get
- %sfx≥
- 3†9∂0∞±27
- 3†9∂0∞±27
- 3±8∂0∞±27
- %w
- %unbox
- %fontÌonaco.9
- %moveto≤00∏4Ëilite·rea±∞
- &4
- %hilite·rea±∞
- %fontÛys
-
- %m 13
- %unbox
- %if¶backΩ∞Ûkip±
- %hilite·rea¶1∞
- %x¶E
- %x¶F
- %x¶7
- %fontÌonaco.9
- B3
- %hilite·rea±∞‚color±
- %eraserectµ2∏7±41π7
- %fontÛys
- %x¶8
- 138
- %bcolor≥
- %w
- %box≤54∑5µ54±42
- In·n…raqiˆillage,˘ou‰iscovered·Êine
- old„arpet,˜hich˘ouÁotÊor§87.
-
- &P√lick„ell¡4.‘henÙype
- %boldÔn„enterÔff˜rapÔff
- Carpet
- %boldÔff
- †andress“eturn.
- %centerÔn˜rapÔn
- %s¥¢cell¡4"Û±±„enterÔn˜rapÔn
- %get any
- %if (&act <> -7) and (&act <> 3) rem click j get
- %box≤54∑0µ54±24
- That'sÈt.†NowÙype
- %boldÔn
- Carpet
- %boldÔff
- andress“eturn.
- %hilite·rea±∞
- %hilite·rea∑∞Û±∑
- %x¶E
- %x¶F
- %x¶7‚color±
- A4
- %s≤¢carpet"Û¥¢Carpet"
- %x &8 get '' 12
- %bcolor≥
- %if®&actΩ≥)·nd®&ansÛ=ß')¯¶8¯¶4Ûkip±
- %if &ans s<> &2 rem inp bcolor 1 j get
- %sfx≥
- 3±8µ3∞±27
- 3†9µ3∞±27
- 3±8∂0∞±27
- %w
- %moveto∂5π5
- %hilite·rea∑∞‚color±
- %eraserectµ2∏7±41π7ÊontÌonaco.9
- &4
- %hilite·rea∑∞ÊontÛys‚color≥
-
- %m 14
- %if¶backΩ∞Ûkip±
- %x¶E
- %x¶F
- %x¶7
- %fontÌonaco.9
- A4
- %hilite·rea≤∞‚color±
- %eraserect±44∏8≤33π7
- %hilite·rea∑∞
- %fontÛys
- %x¶8
- Carpet
- %bcolor≥
- %w
- %box≤54∑0µ54±24
- &PŒow„lick„ell¬4.‘henÙype
- %boldÔn˜rapÔff
- 87
- %boldÔff„enterÔff
- †andress“eturn.
- %s±∑
- %s¥¢cell¬4"„enterÔn˜rapÔn
- %get any
- %if (&act <> -2) and (&act <> 3) e rem click j get
- %hilite·rea∑∞
- %hilite·rea≤∞Û±≤
- %e
- That'sÈt.†NowÙype
- %boldÔn
- 87
- %boldÔff
- andress“eturn.
- %x¶E
- %x¶F
- %x¶7
- B4
- %s¥¢87"Û≥¢∏7"‚color±
- %x &8 get '' 12 bcolor 3
- %if®&actΩ≥)·nd®&ansÛ=ß')¯¶8¯¶4Ûkip±
- %if &ans s<> &4 rem inp x &8 bcolor 1 j get
- %sfx≥
- 3±8∂0∞±27
- 3†9µ3∞±27
- 3±8∂0∞±27
- %w
- %unbox
- %moveto≤00π5
- %hilite·rea≤∞
- %fontÌonaco.9‚color±
- %eraserect±44∏7≤33π7Èf¶ansΩß'¯¶3
- %hilite·rea≤∞‚color≥
- %fontÛys
-
- %m 15
- %if˛&backÛkip±
- %bcolor±
- %eraserect†52†99±38±08
- %eraserect±44†99≤33±08
- %eraserect†52±10±38±19
- %eraserect±44±10≤33±19
- %eraserect†52±21±38±30
- %eraserect±44±21≤33±30
- %eraserect†52±42±38±51
- %bcolor≥
- %w
-
- %box≤54∑0µ54±24
- ByÎeeping·ÛharpÂyeÔutÊor‚argains,
- you·cquiredÛeveralÔtherÙreasures,
- which˜e'll·ddÙo˘ourÏist.
- %get act
-
- %m 16
- %unbox
- %if˛&backÛkip±
- %x¶E
- %x¶F
- %hilite·reaπ∞
- %x¶7
- %fontÌonaco.9
- B4
- %hilite·rea≤∞
- %x¶8
- %fontÛys
- 87
- %w
- %if¶backÛkip±
- %fontÌonaco.9·utoÔn
- %moveto∂5±06
- Gong
- %moveto≤00±06Û¥¢µ7"
- &4
- %moveto∂5±17
- Statue
- %moveto≤00±17
- 105
- %moveto∂5±28
- Dagger
- %moveto≤00±28
- 165
- %moveto∂5±50‚oldÔn
- Total:
- %fontÛys·utoÔff‚oldÔff
- %w
- %box≤54∑0µ64±34˜rapÔn
- HowÌuchËave˘ouÛpent·ltogether?†The
- spreadsheet‰oesÙhe·rithmeticÊor˘ou.
-
- &PΔirstÛelect„ell¬9‚y„lickingÈt.
- %s¥¢cell¬9"
- %get any
- %if®&actΩ≥)Ûkip±
- %if &act <> -9 e rem click j get
- %sfx≤
- 3±8µ3∞±27
- 3±8∂0∞±27
- %w
- %fontÌonaco.9
- %hilite·rea≤∞
- %hilite·reaπ∞
- %x¶E
- %x¶F
- %x¶7
- B9
- %fontÛys
-
- %m 17
- %if˛&backÛkip±
- %x¶F
- %hilite·reaπ∞‚color±Âraserect±44±42≤33±50Ëilite·reaπ∞‚color≥
- %box≤54∑0µ64±34
- %w
- %e
- NowÈnsteadÔfutting·ÓumberÈn
- this„ell,˘ou'llutÈn·Êormula.
-
- &PΔromÙhe
- Function
- menu,„hoose
- %wrapÔff
- Sum,
- %boldÔffÛµ”umÛ¥Δunction„enterÔff
- †toÈndicateÙhat˘ou˜antÙo·dd.
- %get menu 5001
- %centerÔn˜rapÔn
- %if®&actΩ≥)Ûkip±
- %if &sel <> 5001 rem menu j get
- %sfx≥
- 3±8µ3∞±27
- 3±8∂0∞±27
- 3±2µ3∞±27
- %w
- %x¶8ÊontÌonaco.9
- SUM®
- %fontÛys
-
- %m 18
- %unbox
- %if¶backÍ‚ack
- %x¶6
- NowÙellÙheÛpreadsheet˜hatÓumbers
- to·dd.
- %point
- %wrapÔff„enterÔff
-
-
- &PÕoveÙheointerÙoÙhe„ell¬3.
- &P–ress·ndËoldÙheÌouse‚utton.
- &PƒragÙheointer‰ownÙhe„olumn
- †ÔfÓumbersıntilÙhey·re·ll
- †Ëighlighted.
- %wrapÔn„enterÔn
- %code≤µ8
- %if®&ansΩµ)Ôr®&actΩ≥)Í´±
- %e„ode≤µ7
- NotÒuite.†TryÈt·gain:
- %j point
-
- %m 19
- %if¶ansº>µÛkip±
- %sfxπ
- 3±8µ3∞±27
- 3†9µ3∞±27
- 3†9µ3∞±27
- 3†9∂0∞±27
- 3†9µ3∞±27
- 3±8∂0∞±27
- %w
- %fontÌonaco.9
- %if¶backËilite·rea¶1∞Ëilite·reaπ∞‚color≥¯¶6
- %hilite·reaπ∞‚color±Âraserect±44±42≤34±50
- %x¶F¯¶8
- SUM®B3...B7)
- %moveto≤00±50
- 552
- %hilite·reaπ∞
- %if˛&back„ode≤µ7
- %fontÛys‚color≥˜rapÔff
- AndÙhere'sÙheÙotal.Ÿou've
- spent§552.†You„ould·lsoËave
- figuredÙhisÔut˜ith·„alculator,
- or˜ithaper·ndencil.¬ut·
- spreadsheetËas·n·dvantage
- over‚othÔfÙhese.
- %wrap on get act
-
- %m 20
- %if˛&backÛkip±
- %unbox
- %x¶E
- %x¶F
- %x¶7ÊontÌonaco.9‚color±
- B9
- %eraserect±44±42≤33±50
- %moveto≤00±50
- 552
- %x¶8
- SUM®B3..B7)
- %hilite·reaπ∞
- %eraserect±44∑6≤33∏6Ìoveto≤00∏4
- 138
- %fontÛys‚color≥
- %x¶6
- %w
- %e
- Suppose˘ouÚealizeÙhat˜hat˘ouaidÊor
- the˜aterÍug˜asÚeallyÙheÂquivalentÔf≤00
- US‰ollars,Óot±38.…nsteadÔfËavingÙoÚeenter
- andÚecalculate·ll˘ourÓumbers,˘ouÛimply
- changeÙheÔneÈn„ell¬3.
-
- &P√lick„ell¬3.‘henÙype
- %boldÔn
- 200
- %boldÔff„enterÔff˜rapÔff
- and
- †press“eturn.
-
- %s¥¢cell¬3"Û±π„enterÔn˜rapÔn
- %get any
- %if (&act <> -1) and (&act <> 3) rem click j get
- %fontÌonaco.9
- %hilite·reaπ∞
- %hilite·rea±∞Û±±
- %x¶E
- %x¶7
- B3
- %bcolor≥ÊontÛysÂ
- That'sÈt.†NowÙype
- %boldÔn
- 200
- %boldÔff
- andress“eturn.
- %s¥¢200"†bcolor±
- %x &8 get '' 12
- %if®&actΩ≥)·nd®&ansÛ=ß')¯¶8¯¶4Ûkip±
- %if &ans s<> &4 bcolor 3 rem inp x &8 bcolor 1 j get
- %sfx≥
- 3πµ3∞±27
- 3π∂0∞±27
- 3πµ3∞±27
- %w
- %hilite·rea±∞
- %eraserect±44∑6≤33∏6
- %moveto≤00∏4ÊontÌonaco.9
- &4
-
- %m 21
- %Ëilite·rea±∞
- %bcolor±
- %eraserect±44±42≤33±50
- %fontÌonaco.9Ìoveto≤00±50
- 614
- %fontÛysınbox‚color≥‚ox≤54∑0µ54±23
- TheÙotalÈsÚecalculatedÈnstantly.
- You„an„hange·nyÓumberÈnÙhe„olumn,
- andÙheÙotal˜ill„hange·ccordingly.
- %get act
-
- %m 22
- %if˛&backÛkip±
- %unbox
- %hilite·rea±∞¯¶7ÊontÌonaco.9‚color±
- B3
- %x¶8ÊontÛys
- 200
- %bcolor≥
- %w
- %box≤54µ9∂26±78
- You„anÛeeÙhat·ÛpreadsheetÁives
- you·ÁloriousÊreedomÙhat˘ou‰on'tËave
- with·encil·ndaper.†With·Ûpreadsheet,˘ou„an:
-
- %wrapÔff„enterÔff
- &P”etıp˘ourÌodel˜ithÙhe·ppropriate
- †numbers·ndÊormulas.
-
- &P√hange·nyÎeyÓumber·nd˜atchÙhe
- †results„hange·ccordingly.
-
- ThisÈs„alled·sking¢whatÈf"Òuestions.
- %wrapÔn„enterÔn
- %get act
-
- %m 23
- %hilite·rea±∞¯¶E¯¶F
- %box≤54∑0µ50±26
- It˜orksÍust·s˜ellÊor·llÎindsÔf
- calculations--whetherÙhey'reÛmall·nd
- simpleÔrÏarge·nd„omplex.
- %get act
- %sfxÌenu2exit„ode∞≤2˜ait¥2
- %code∞±0‚color±
- %linkÌenu
-
-